home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / 3YRLET.SRC < prev    next >
Text File  |  1990-11-05  |  1KB  |  92 lines
  1. ;\|
  2. ;3YRLET.SRC     Translated from 3YRLET.EDT by Roger Mathew's EDT2SRC Ver 4.11
  3. ;75LET    12:46:55 PM  21/ 6/90   |
  4. define(CTR|N|4||)
  5. define(CTR3|N|2||)
  6. define(CTR2|N|4||)
  7. define(WAIT|N|3||)
  8. open(gpsetup|||)
  9. trap(q|g|exit)
  10. clrscr
  11. pmsg("ENTER NUMBER OF CARDS TO PRINT:"|10|12|Y|N|S|CTR2)
  12. pchr(P|4)
  13. trap(I|G|EXIT)
  14. mount(NEW|R|P)
  15. find(b|heading||)
  16. pset(132|18|18)
  17. pchr(P|1)
  18. for(CTR|1|CTR2|1)
  19. {
  20. WAIT = (WAIT+1)
  21. if WAIT = (195) do
  22. {
  23. pmsg(WAIT;" printed - change labels and press ret...."|10|20|Y|N|S|)
  24. WAIT = (0)
  25. }
  26. pfmt(1|||N|N|)
  27. pblnk(1)
  28. pfmt(2|||N|N|)
  29. pfmt(3|||N|N|)
  30. pfmt(4|||N|N|)
  31. pfmt(5|||N|N|)
  32. pfmt(6|||N|N|)
  33. pblnk(1)
  34. pfmt(7|||N|N|)
  35. pfmt(8|||N|N|)
  36. pblnk(8)
  37. }
  38. EXIT:
  39. run("recmenu")
  40. \R NEW     
  41.        &
  42.    If you have not seen a Doctor in the past three years AND
  43.    have not received an offer for a check up in the past year,
  44.    then we should like to offer you the opportunity . If you
  45.    would like a check at our clinic please ring the surgery
  46.    on 515881 to make an appointment for the Well Person Clinic.
  47.    If you HAVE had such a check or HAVE seen the Doctor in
  48.    the past 3 years then please ignore this invitation.
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89. \
  90. HEADING
  91. \
  92.